*** Figures ***
use "$Data_generated/Commune.dta", clear
egen sum_sectperm=sum(nb_sectperm) if year>1919, by(year)
gen max=160

drop if missing(sum_sectperm)
duplicates drop year, force
tsset year
twoway (bar max year if inrange(year, 1926.5, 1927.5), color(gs12)) (line sum_sectperm year if year>1920 & year<1936, xtitle("Year") ytitle("Nb of Branches") xlabel(1921(1)1936) lcolor(gs1) legend(off) text(100 1927 "Condemnation", orientation(vertical))) (scatter sum_sectperm year if year>1920 & year<1936, mcolor(gs6) msymbol(T))

graph export "$Figures/Figure2.pdf", name(Graph) replace
graph export "$Figures/Figure2.png", name(Graph) replace